home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Chemistry / Titrate / background_2767.txt < prev    next >
Encoding:
Text File  |  1991-11-23  |  6.2 KB  |  299 lines
  1. -- background: 2767 from stack: in
  2. -- bmap block id: 3190
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8002
  11. -- rect: left=47 top=192 right=215 bottom=102
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: reset
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global move
  23.   --global flag
  24.   put 0 into move
  25.   set the scroll of bkgnd field "scroll 1" to move
  26.   set lockscreen to true
  27.   go to card start
  28.   set the scroll of bkgnd field "scroll 1" to move
  29.   set the lockscreen to false
  30.   set the highlight of bkgnd button "indicator" to false
  31.   show card field "conc"
  32.   --put 0 into flag
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 5 (button)
  38. -- low flags: 00
  39. -- high flags: 8003
  40. -- rect: left=192 top=303 right=335 bottom=238
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Done
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   global count
  52.   global result
  53.   global a
  54.   global b
  55.   GLOBAL C
  56.   global d
  57.   global ans
  58.   global score
  59.   global scorea
  60.   global scoreb
  61.  
  62.   go to card "change"
  63.   ASK "PLEASE ENTER THE NUMBER OF ML OF BASE USED "
  64.   PUT IT INTO RESULT
  65.  
  66.   put result - ans into C
  67.   IF C<0 THEN PUT C*-1 INTO C
  68.   IF C<.2 THEN
  69.     put the seconds into b
  70.     put b - a into score
  71.     put .2-C into D
  72.     if D<0 then put D*-1 into D
  73.     put d*10 into d
  74.     if d<.5 then put .5 into D
  75.  
  76.  
  77.     put 300-score into scorea
  78.     if scorea<0 then put 10 into scorea
  79.     put scorea*D into scoreb
  80.     set the numberformat to "0"
  81.     put empty into card field correct
  82.     put "correct!" into  line 1 of card field correct
  83.     put "score" into line 3 of card field correct
  84.     put scoreb into line 4 of card field correct
  85.     put score  into line 6 of card field correct
  86.     put "seconds" into line 7 of card field correct
  87.     set the numberformat to "0.00"
  88.     put "The computer's answer was "  into line 9 of card field correct
  89.     put ans into line 10 of card field correct
  90.     show card field answ
  91.  
  92.     show card field correct
  93.  
  94.   else
  95.     put empty into card field correct
  96.     put "Incorrect" into line 3 of card field correct
  97.     put "Try Again" into line 6 of card field correct
  98.     show card field correct
  99.     wait 2 seconds
  100.     hide card field correct
  101.   END IF
  102.  
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 7 (field)
  108. -- low flags: 00
  109. -- high flags: 0007
  110. -- rect: left=167 top=59 right=90 bottom=220
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 0
  114. -- font id: 3
  115. -- text size: 14
  116. -- style flags: 0
  117. -- line height: 18
  118. -- part name: scroll 1
  119.  
  120.  
  121. -- part 9 (button)
  122. -- low flags: 00
  123. -- high flags: C002
  124. -- rect: left=87 top=261 right=281 bottom=153
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: indicator
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   global count
  136.   global move
  137.  
  138.   global flag
  139.  
  140.   put 0 into flag
  141.   set the highlight of bkgnd button "indicator" to true
  142.   hide card field "conc"
  143.   if move > count then
  144.     set lockscreen to true
  145.     go to card change
  146.     set the scroll of bkgnd field "scroll 1" to move
  147.     go to card start
  148.     set the lockscreen to false
  149.  
  150.     visual dissolve
  151.     go to card "change"
  152.  
  153.     put 1 into flag
  154.  
  155.   end if
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 10 (button)
  161. -- low flags: 00
  162. -- high flags: 8002
  163. -- rect: left=47 top=41 right=76 bottom=101
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: 2.5 ml
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   global move
  175.   global flag
  176.   global count
  177.   put move + 45 into move
  178.   set the scroll of bkgnd field "scroll 1" to move
  179.  
  180.   if the scroll of bkgnd field "scroll 1" >= count  and flag =0 then
  181.  
  182.     go to card "midpoint"
  183.     set the lockscreen to true
  184.     go to card "change"
  185.     set the scroll of bkgnd field "scroll 1" to move
  186.     set the lockscreen to false
  187.     put 1 into flag
  188.  
  189.   end if
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 11 (button)
  202. -- low flags: 00
  203. -- high flags: 8002
  204. -- rect: left=47 top=79 right=114 bottom=101
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: 1.0 ml
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   global move
  216.   global flag
  217.   global count
  218.   put move + 18 into move
  219.   set the scroll of bkgnd field "scroll 1" to move
  220.  
  221.   if the scroll of bkgnd field "scroll 1" >= count  and flag =0 then
  222.  
  223.     go to card "midpoint"
  224.     set the lockscreen to true
  225.     go to card "change"
  226.     set the scroll of bkgnd field "scroll 1" to move
  227.     set the lockscreen to false
  228.     put 1 into flag
  229.  
  230.   end if
  231.  
  232. end mouseup
  233.  
  234.  
  235.  
  236.  
  237. -- part 12 (button)
  238. -- low flags: 00
  239. -- high flags: 8002
  240. -- rect: left=47 top=117 right=153 bottom=101
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: 1 drop
  249. ----- HyperTalk script -----
  250. on mouseUp
  251.   global move
  252.   global flag
  253.   global count
  254.   put move + 1 into move
  255.   set the scroll of bkgnd field "scroll 1" to move
  256.   --if the scroll of bkgnd field "scroll 1" < count then
  257.   --set the lockscreen to true
  258.   --go to card "change"
  259.   --set the scroll of bkgnd field "scroll 1"  of card "change" to move
  260.   --go to card "start"
  261.   --set the lockscreen to false
  262.   --end if
  263.   if the scroll of bkgnd field "scroll 1" >= count  and flag =0 then
  264.  
  265.     go to card "midpoint"
  266.     set the lockscreen to true
  267.     go to card "change"
  268.     set the scroll of bkgnd field "scroll 1" to move
  269.     set the lockscreen to false
  270.     put 1 into flag
  271.  
  272.   end if
  273.  
  274.  
  275.  
  276.  
  277. end mouseUp
  278.  
  279.  
  280.  
  281. -- part 14 (button)
  282. -- low flags: 00
  283. -- high flags: 8003
  284. -- rect: left=251 top=303 right=335 bottom=342
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 1
  288. -- font id: 0
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: Instructions
  293. ----- HyperTalk script -----
  294. on mouseUp
  295.   push card
  296.   go to card "instructions"
  297. end mouseUp
  298.  
  299.